' Bike Info
' This program reads information into three arrays and prints it.

OPTION BASE 1         ' set base of all arrays to 1

DIM salesGroup$(7)    ' dimension salesGroup$ string array
DIM bikesSold%(7)      ' dimension bikesSold% integer array
DIM totalSales!(7)      ' dimension totalSales! floating-point array

CLS

FOR i% = 1 TO 7         ' get salesperson name and sales data
    INPUT "Enter salesperson name:  ", salesGroup$(i%)
    INPUT "   Bikes sold:  ", bikesSold%(i%)
    INPUT "   Total sales:  $", totalSales!(i%)
    PRINT
NEXT i%

PRINT "You entered the following sales data:"
PRINT

TEXTFONT 4

PRINT "Salesperson     Bikes sold     Total sales"
PRINT "------------------------------------------"

' Initialize tmp$, a formatting template for PRINT USING.
tmp$ = "\               \ ###          $$####.##"

FOR i% = 1 TO 7         ' print contents of each array
    PRINT USING tmp$; salesGroup$(i%); bikesSold%(i%); totalSales!(i%)
NEXT i%

TEXTFONT 1

PRINT
INPUT "Press Return to continue", dummy$
